0 PRINT"[147]"
1 PRINT"THIS IS MY FIRST GAME!!"
2 PRINT"PLEASE SEND ME A SHORT LETTER"
3 PRINT"AND I WILL WRITE BACK..."
4 PRINT
5 PRINT"C/O CHRIS VANKULA"
6 PRINT"3754 CRESTON DR."
7 PRINT"INDPLS,IN  46222 "
8 PRINT"TYPE RUN 10 FOR GAME!!"
9 END
10 REM************
20 REM* CHRIS'S  *       PUBLIC
30 REM* KARATE-  *
40 REM* BATTLE   *       DOMAIN
50 REM************
60 PRINT"[147]"
70 PRINT"    [213][195][195] [174]  [176] [174][195][195][201] [174][176] [213][195][195][201]"
80 PRINT"    [194]   [171][195][195][179] [171][195][195][203] [170][180] [202][195][195][201]"
90 PRINT"    [202][195][195] [189]  [173] [189]  [205] [189][173] [202][195][195][203]"
100 PRINT
110 PRINT"          VANKULA'S"
120 FORL=1TO5
130 PRINT
140 NEXTL
150 PRINT"  K A R A T E   B A T T L E"
160 PRINT" --->PRESS ANY KEY<---"
170 GET JZ$:IFJZ$="" THEN 170
180 PRINT"[147]        DIRECTIONS Y/N":GETYN$:IF YN$="N" THEN 500
190 IF YN$="" THEN180
200 PRINT"[147]            DIRECTIONS[146]"
210 PRINT"STEPS[146]"
220 PRINT"<1> ENTER 2 PLAYERS NAMES"
230 PRINT"<2> EACH TAKE TURNS PICKING MOVES"
240 PRINT"<3> IF YOU BEAT THE COMPUTER"
250 PRINT"             YOU RECEIVE PTS."
260 PRINT"<4> FIRST PERSON TO 100 WINS"
270 PRINT"<5> LOSER PAYS WINNER $0.25"
275 PRINT"<6>HINT:HARDER MOVES=MORE PTS"
276 PRINT"<7>HINT:EASY MOVES  =BETTER CHANCE OF"
277 PRINT"                     WINNING"
280 INPUT"   ---> PRESS RETURN <---";HU$
500 PRINT"[147]"
510 INPUT"ENTER PLAYER 1";PO$
520 INPUT"ENTER PLAYER 2";PT$
530 PRINT"[147]"
540 PRINT"        **";PO$;PO;"     **";PT$;PT
550 PRINT"   --PLAYER--EASY--HARD--"
560 PRINT"   ----------------------"
570 INPUT"PL.1 EASY/HARD?";OM$
571 IF OM$<>"EASY" AND OM$<>"HARD" THEN PRINT"[145][145]":GOTO 570
580 INPUT"PL.2 EASY/HARD?";TM$
581 IF TM$<>"EASY" AND TM$<>"HARD" THEN PRINT"[145][145]":GOTO 580
582 IF OM$="EASY" THEN H=1:GOTO 590
583 H=2
590 IF TM$="EASY" THEN O=1:GOTO 600
595 O=2
600 IF H=1 THEN PRINT"[145][145]       PL. 1 = [214]               "
610 IF H=2 THEN PRINT"[145][145]       PL. 1 =       [214]        "
620 IF O=1 THEN PRINT"       PL. 2 = [214]               "
630 IF O=2 THEN PRINT"       PL. 2 =       [214]        "
635 FORL=1TO2000:NEXTL
640 IF H=1 THEN 700
650 IF H=2 THEN 800
660 IF O=1 THEN 900
670 IF O=2 THEN 1000
700 G=INT(20*(RND(0)))
710 IFG<17 THEN PO=PO+G:K=1
720 GOTO 660
800 G=INT(50*(RND(0)))
810 IFG>42 THEN PO=PO+G:K=1
820 GOTO 660
900 Q=INT(20*(RND(0)))
910 IFQ<17 THEN PT=PT+Q:J=1
920 GOTO 2000
1000 Q=INT(50*(RND(0)))
1010 IFQ>42 THEN PT=PT+Q:J=1
1020 GOTO 2000
2000 IF K=1 THEN PRINT"PLAYER 1 WINS..";G;"PTS."
2010 IF J=1 THEN PRINT"PLAYER 2 WINS..";Q;"PTS."
2012 IF J<>1 AND K<>1 THEN PRINT"COMPUTER WINS TWICE!!"
2015 FORL=1TO3000:NEXTL
2016 H=0:O=0:G=0:K=0:J=0:Q=0
2017 IF PT>99 THEN 5000
2018 IF PO>99 THEN 6000
2020 GOTO 530
5000 PRINT"[147]";PT$;"  WINS!!"
5010 END
6000 PRINT"[147]";PO$;"  WINS!!"